inherited frmEstados: TfrmEstados
  Left = 226
  Caption = '-'
  ClientHeight = 405
  ClientWidth = 445
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 368
    Width = 445
  end
  inherited Panel2: TPanel
    Width = 445
    Height = 368
    inherited Panel3: TPanel
      Width = 443
      Caption = 'Estados'
      inherited GroupBox1: TGroupBox
        Left = 364
      end
    end
    inherited Panel4: TPanel
      Width = 443
      Height = 326
      object Label1: TLabel [0]
        Left = 20
        Top = 13
        Width = 33
        Height = 13
        Caption = 'Codigo'
      end
      object Label2: TLabel [1]
        Left = 23
        Top = 53
        Width = 28
        Height = 13
        Caption = 'Nome'
      end
      object Label4: TLabel [2]
        Left = 104
        Top = 12
        Width = 79
        Height = 13
        Caption = 'C'#243'digo do IBGE:'
        FocusControl = DBEdtEstadoIbge
      end
      inherited DBGrid1: TDBGrid
        Top = 109
        Width = 435
        TabOrder = 3
        OnCellClick = DBGrid1CellClick
        OnDrawColumnCell = nil
        OnTitleClick = nil
      end
      inherited SbHints: TStatusBar
        Top = 303
        Width = 435
      end
      object EdtEstCodigo: TDBEdit
        Left = 22
        Top = 27
        Width = 31
        Height = 21
        Hint = ' C'#243'digo do Estado (UF) '
        CharCase = ecUpperCase
        DataField = 'EST_CODIGO'
        DataSource = DtSrc
        Enabled = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnExit = EdtEstCodigoExit
      end
      object EdtEstDescri: TDBEdit
        Left = 23
        Top = 66
        Width = 265
        Height = 21
        Hint = ' Nome do Estado ( UF)   '
        CharCase = ecUpperCase
        DataField = 'EST_DESCRI'
        DataSource = DtSrc
        Enabled = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        OnExit = EdtEstDescriExit
      end
      object DBEdtEstadoIbge: TDBEdit
        Left = 104
        Top = 28
        Width = 73
        Height = 21
        DataField = 'EST_COD_IBGE'
        DataSource = DtSrc
        Enabled = False
        TabOrder = 4
        OnExit = DBEdtEstadoIbgeExit
      end
    end
  end
  inherited DtSrc: TDataSource
    DataSet = SQLC_Estados
    Left = 360
    Top = 200
  end
  object SQLC_Estados: TSQLClientDataSet
    Active = True
    CommandText = 'select * from ESTADOS where est_codigo=:pcodigo;'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'pcodigo'
        ParamType = ptInput
      end>
    DBConnection = DtmGeral.ConexaoBanco
    Left = 361
    Top = 251
    object SQLC_EstadosEST_CODIGO: TStringField
      DisplayLabel = 'CODIGO'
      FieldName = 'EST_CODIGO'
      Required = True
      Size = 2
    end
    object SQLC_EstadosEST_DESCRI: TStringField
      FieldName = 'EST_DESCRI'
      Required = True
      Size = 40
    end
    object SQLC_EstadosEST_COD_IBGE: TSmallintField
      FieldName = 'EST_COD_IBGE'
    end
  end
end
